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GENERAL  PURPOSE  HIGH-RESOLUTION  PLOTTING  PACKAGE 

FOR 

TEKTRONIX  4662  PLOTTER  AND  COMPATIBLE  CRT  TERMINALS 


1.  IDENTIFICATION 

1.1.  Identification  Name:  PLOTTER 

1.2.  Subroutines:  XYPLOT,  SCALE,  AXIS,  PLREAD,  PON,  POFF,  TKDASH,  MINMAX, 

TPLOT,  TERM,  A4662 

1.3.  Programming  Language: 

Language:  FORTRAN  4-Plus,  Version  3.0 
Routine  Type:  Source  Program  and  Subroutines 
Operating  System:  RSX-11M,  Version  3.2 

1.4.  Computer:  Digital  Equipment  Corp.  PDP-11/45 

1.5.  Program  Availability: 

Submittal:  Program  Descriptions  and  Listings 

On  File:  USRD  Source  Library 

2.  PURPOSE 

2.1.  Description  of  the  Routine:  The  program  PLOTTER  generates  a  12-bit 
resolution  plot  of  absissa  and  ordinate  values.  This  program  can  adapt  to 
formatted  or  unformatted  data  contained  in  one  or  two  files.  PLOTTER  also 
has  the  capability  to  allow  the  user  to  manually  enter  points  for  an  XY 
plot.  The  program  contains  the  following  options: 

•  Automatic  Scaling 

•  Point  Plot 

•  Choice  of  Line  (solid,  dashed,  dot-dash,  small  dashes) 

•  Create  New  Data  File 

•  Labels 

•  Multiple  Curves  on  One  Graph 

2.2.  Program  Background:  The  PLOTTER  program  was  designed  to  provide  USRD 
with  an  interactive  graphics  package  that  is  both  versatile  and  easy  to  use. 

3.  USAGE 

3.1.  Preparation  of  Terminal  and  Plotter:  The  preparation  needed  before 
running  the  program  PLOTTER  depends  upon  the  instrument  used;  either  the 
Tektronix  CRT  or  the  Tektronix  4662  plotter  may  be  used  for  plotting.  If  a 
Tektronix  CRT  is  used,  one  needs  only  to  be  logged  on  the  computer  and  to 
type  RUN  PLOTTER. 
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Since  the  program  is  self-explanatory  (see  Sec.  4.1.)  there  is  no  need 
for  further  instructions.  However,  if  the  Tektronix  4662  flat-bed  plotter 
(Fig.  1)  is  used,  the  plotter  must  be  prepared  before  running  the  program. 
This  involves  a  few  simple  steps. 


SET  UPPER 
RIGHT  POINT 


Fig.  1  -  Flat-bed  plotter  (Tektronix  4662) 

•  Rock  the  POWER  switch  to  the  right  to  turn  the  plotter  on. 
The  POWER  indicator  will  light  and  the  pen  will  move  down 
along  the  right  boundary  until  it  reaches  the  lower  right 
comer  where  it  will  stop. 

•  Depress  the  LOAD  key  to  its  locked  position.  This  will 
lift  the  pen  and  move  it  to  the  LOAD  position  (upper  right 
corner  of  platen),  and  the  electrostatic  paper  hold-down 
will  be  disengaged. 

•  Position  a  new  piece  of  paper  on  the  platen  so  the  bottom 
edge  of  the  paper  lays  evenly  along  the  paper  guide. 
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•  Press  the  LOAD  key  to  release  It  from  its  locked  position; 
this  will  activate  the  electrostatic  paper  hold-down.  If 
"bubbles"  appear  under  the  paper,  smooth  them  out  with 
your  hand. 

•  Choose  a  scale  so  that  the  graph  fits  the  page. 

Use  the  joystick  to  position  the  pen  to  the  lower  left 
corner  of  the  paper. 

•  Press  the  SET  LOWER  LEFT  key  and  hold  it  down  until  the 
plotter  bell  rings. 

•  Using  the  joystick,  move  the  pen  to  the  upper  right  corner 
of  the  paper. 

•  Press  the  SET  UPPER  RIGHT  key  and  hold  it  down  until  the 
plotter  bell  rings. 

After  logging- in  on  the  terminal,  you  may  now  type  RUN  PLOTTER  <CR> 
(<CR>  represents  depressing  the  RETURN  key).  The  graphs  produced  on  the  CRT 
and  on  the  flat-bed  plotter  (Tektronix  4662)  are  identical  except  there  is 
12-oit  resolution  on  the  Tektronix  4662  and  10-bit  resolution  on  the  CRT 
plots.  To  ensure  a  12-bit  resolution,  the  rear-panel  switches  of  the  4662 
must  be  properly  set.  These  parameter  settings  are  vital  to  proper  system 
operation.  Figure  2  shows  the  switch  positions. 


(F)  (I) 


Fig.  2  -  There  are  four  hexadecimal  switches  labeled 
A,  B,  C,  and  D  in  the  rear  panel  of  the  4662.  The 
switches  should  be  set  at  the  2321  position  as  shown. 


3.2.  Input:  The  user  must  supply  the  name  of  the  single  file  containing  the 
XY  coordinates  or  the  names  of  the  files  containing  the  X  data  and  the  Y 
data.  The  data  files  can  be  formatted  or  unformatted.  As  an  option,  the  XY 
data  can  be  entered  interactively.  This  option  will  store  the  data  in  two 
unformatted  files:  DATAX.DAT.  and  DATAY.DAT, 
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3.3.  Output:  A  typical  output  is  shown  in  Section  4.  The  output  is 
primarily  the  CRT  plot  or  4662  plot  with  appropriate  labels, 

3.4.  Limitations:  The  data  arrays  have  been  dimensioned  at  1000,  To 
accommodate  more  than  1000  points  the  source-program  statement  must  be 
changed. 

3.5.  Format:  PLOTTER  can  accommodate  data  file(s)  containing  one  X  or  Y 
value,  or  one  XY  coordinate  per  line  in  any  format. 

4.  TEST  METHOD  AND  RESULTS 

To  test  PLOTTER,  four  data  files  were  created  in  different  formats.  The 
interaction  found  in  Section  4.1.  is  an  example  of  the  type  of  responses 
needed  for  this  routine.  Sections  4.2.  and  4.3.  give  examples  of  the  graphs 
produced  by  PLOTTER  on  the  Tektronix  4662. 

4.1.  Running  PLOTTER:  This  is  an  example  of  the  interaction  involved  in 
running  the  program. 

RUN  3LD  TT  £R  <CS> 

00  WANT  TO  CREATE  MgVI  DATA  Ft  LES  ?  Y/N:  N  <C3> 

ENTER  NUMBER  OF  POINTS  to  3E  PLOTTED:  £00  <C2* 

COORDINATES  CONTAINED  I N  1  DR  2  FILES?  £  <CJ?> 

are  files  ( t Unformatted  or  C2)formatted :  2_  <Ct> 

enter  FORMAT  TO  USE  FOR  READING:  (IE.  C2FIQ.5)  )  ( F  4  .  I . ? 7 , « j  <C2> 

FILENAME  FOR  X,Y  DATA:  CAL  10 . DAT  <C2> 

DO  TOU  WANT  AUTOMATIC  SCALING?  Y/N  N  <C«> 

XMIN  =  0 . 20000000E  +  0! 

XMAX  s  0.  ;0<*o0002E+02 
THIN  =  0 . L997600 IE.0 1 
YMAX  =  0. 5084710 1E  +  0 1 

ENTER  the  XMIN, XMAX , YM I N , YMAX  YOU  WISH  TO 
USE  SEPARATED  BY  COMMAS:  3 . 0  .  33  .  0  .  •+.  3  7,  ?  .  13  <CX> 

ENTER  THE  4  OF  X  TIC  MARKS,  4  OF  Y  TIC  MARKS:  £^6.  <CR> 

DO  YOU  WANT  POINT  PLOT?  Y/N  V  <CS> 

DO  YOU  WANT  LABELS?  IF  UStNG  CRT,  TYPg  N;  Y  <C?> 

TYPE  IN  LABEL  FOR  PLOT:  CALIBRATION  AT  10 [Q  <CS> 

type  in  label  for  x  axis:  pressure  <c*> 

TYPE  IN  LABEL  FOR  y  AXIS:  VOLUME  <CR> 

00  YOU  WANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  Y  <CR> 

YOU  HAVE  A  CHOICE  AS  TQ  WHICH  TYPE  LINE  TO  USE . 

SOLID  LIME  -  TYPE  !  DASHED  LINE  -  TYPE  2 

DASH-DOT  LINE  -  TYPE  3  SHORT  DASHES  -  TYPE  X  <C^> 

00  YOU  WANT  TO  CREATE  NEW  DATA  FILES?  Y/N:  N  <C£> 

ENTER  NUMBER  OF  POINTS  TO  BE  PLOTTED:  £0O  <CR> 

COOROINATES  CONTAINED  IN  I  OR  2  FILES?  t,  <CC> 

ARE  c  l  LE5  CDvHFO^RfSD  OR  (2  )FORMATTeD?  2  <C?> 

ENTER  cqRMAT  TO  jSE  -OR  READING:  (l£.  CFIO.D)  )  ( 2  *  1 0 . *  ?  <C?> 

filename  for  x.r  ja:a:  l  J  .  pat  <CK> 

DO  YOU  -ANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  N  <C?> 

TO  SR AP«  ANOTHER  CURVE,  TYPE  RUN  PLOTTER 


NOTE:  All  underlined  portions  are  user-supplied. 


VOLUME 


4.2.  PLOTTER  Output  Example:  Figure  3  is  a  typical  plot  of  four  experimental 
data  sets  and  a  rational-fraction  curve  fit  to  the  data. 


CALIBRATION  AT  10CC3 

<*€  03 


C*E  33 


PRESSURE 

Fig.  3 


4.3.  PLOTTER  Output  Example:  Figure  4  is  another  example  of  the  output  from 
the  Tektronix  4662  plotter.  This  plot  illustrates  the  various  line  types 
that  can  be  obtained. 


PRESSURE 


Fig.  4 


Ac  kno  wl  e  d  gmen  t  s 

The  authors  wish  to  thank  R.E.  Scott,  L.  Dwight  Luker,  and  J.D.  George 
for  the  various  subroutines  they  have  provided  us.  Also,  consultations  with 
Anthony  J.  Rudgers  and  L.  Dwight  Luker  were  very  much  appreciated. 


o  o  o  o  o  o  o  o o r> o o o o  oooooo  nonoooooooo  o  n  o  o  o  o 


APPENDIX  A 


SOURCE  LANGUAGE  LISTING 


PLOTTER  PROGRAM 
SEPTEMBER, 1980 

PROGRAMMED  BY  TINA  RUGGIERO  AND  BOB  ANDERSON 


THIS  PROGRAM  IS  DESIGNED  FOR  THE  TEXTRON I X-4662  FLAT  BED  PLOTTER 
IN  WHERE  X  AND  Y  DATA  CAN  BE  PLOTTED  IN  THE  FOLLOWING  FORMS: 

1) X  AND  Y  DATA  IN  SEPARATE  FILES-UNFORMATTED 

2 ) X  AND  Y  DATA  IN  SEPARATE  FILES-FORMATTED 

3  > X  AND  Y  DATA  IN  SAME  FILE-UNFORMATTED 

4  ) X  AND  Y  DATA  IN  SAME  F I LE -FORMATTE D  OR 

5 )POI NTS  CAN  BE  INPUTED  MANUALLY. 


SUBROUTINES  USED  ARE:  TPLOT ,  XYPLOT,  TERM,  AXIS,  MINMAX,  TKDASH , 

A4662,  PON,  POFF,  SCALE,  PLREAD 


LIMITATIONS: 

OATA  ARRAYS  ARE  DIMENTIONED  AT  1000  POINTS 
DATA  MUST  BE  REAL 


NOTE  : 

THERE  IS  A  PROGRAM  CALLED  ' UEDIT 1  WHICH  CAN  BE  USED  FOR 
EDITING  UNFORMATTED  SINGLE  ARRAYS. 
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BEFORE  RUNNING  PROGRAM,  TURN  PLOTTER  ON,  LOAD  PAPER,  AND  SET  THE 
LOWER  LEFT  AND  UPPER  RIGHT  POINTS 


BYTE  DATAX { 32  )  ♦  DATAY ( 32  )  *  C00R<4),  ILFA(70>.  ITXT(148) 

REAL  X(  2050  )  ,  Y  (  2050  )  ,  XMIN  ,  XMAX  ,  YMI  N  ,  YMAX  , XMI N 1  ,  XMAX  1  ,YMIN1  ,YMAX1  , 
1  XRANG , YRANG , DASH<  8 ) 

INTEGER  NPOINT,NPONT,LENX,  LENY,  NANS , 

1  ITYPE ,XVAL<  2050) ,YVAL<  2050), 

1  ITYMAX , ITXMIN, ITYMIN 

CALL  ERRSETt  29, , .FALSE . , , . FAL  SE . , ,  ) 

CALL  ERRSET ( 30. . .FALSE. , , .FALSE. , , > 


ICENT  IS  HALF  THE  NUMBER  OF  CHARACTERS  USED  IN  THE  LABEL 


ICENT-42 

NDASH-1 


POFF  TURNS  THE  PLOTTER  OFF 


CALL  POFF ( 5  ) 
0  WRITEt5.ll) 


IF  YOU  HAVE  YOUR  DATA  ON  A  FILE  YOU  DON'T  WANT  A 
NEW  DATA  FILE. 


1  FORMATt /, '  SDO  YOU  WANT  TO  CREATE  NEW  DATA  FILES?  Y/Ns  ') 
READ  (5,12  )NANS 

2  FORMAT(Al) 

NAN- '  N’ 

IF  (NANS  .EQ.  *  N  *  )  GO  TO  15 
IF  (NANS  .EQ.  ' Y ' )  GO  TO  15 
GO  TO  10 


XYP LOT  IS  WHERE  NEW  OATA  FILE  IS  CREATED  IF  POINTS 
ARE  ENTERED  MANUALLY 


15  CALL  XYPLOT! X , Y , NPONT  ) 

GO  TO  23 

16  WRITE  <5,17) 

READ! 5  f 1 8 )NPOI NT 

17  FORMAT <  / ,  ' SENTE R  NUMBER  OF  POINTS  TO  BE  PLOTTED:  '  > 


C  . 

C  : 

C  :  IF  YOU  DON’T  KNOW  THE  NUMBER  OF  POINTS  IN  THE  FILE. 

C  :  MAKE  SURE  YOU  ENTER  A  NUMBER  THAT  IS  POSITIVELY 

C  :  LARGER  THAN  THE  NUMBER  OF  POINTS  YOU  HAVE. 

C  : 

C 


18  FORMAT!  14) 


C  . 

c 

C  :  PLREAD  DETERMINES  THE  NUMBER  OF  FILES  AND  THE  FORMAT  THAT  YOUR 

C  :  DATA  IS  IN 

C  : 

C  . . 


CALL  PLREAD<X, Y.NPOINT) 


NPONT “NPOI NT 

20  IF { ANSW  .EQ.  1 Y ’ )CALL  PONI5) 

I F ( ANSW  .EQ.  ' Y ' )GO  TO  60 


C  . 

C  : 

C  :  MINMAX  DETERMINES  THE  MINIMUM  AND  MAXIMUM  VALUE  OF  AN  ARRAY 

C  : 

C  : . 


CALL  MINMAX! X , XMI N , XMAX .NPONT ) 
CALL  MINMAX! Y.YMIN.YMAX, NPONT) 
WR ITE ! 5 , 2 1  ) 


C 

C 

c 

c 

c 

c 


AUTOMATIC  SCALING  WILL  SCALE  YOUR  DATA  AND  WILL 
CALL  THE  SUBROUTINE  AXIS. 


•? 
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FORMAT</, 'SDO  YOU  WANT  AUTOMATIC  SCALING?  Y/N 
READ  <  5 , 23  )AUTO 
FORMAT ( A l ) 

I F ( AUTO . ME .  *  Y '  )GO  TO  30 


SCALE  ORAWS  AND  LABELS  AXIS 


CALL  SCALE ( XM I N-< XMIN*5.0E-05 ) ,XMAX+< XMAX*5.0E-05 ) , XMIN1 , XMAX l .NTICX  > 
CALL  SCALE  ( YMIN-< YMIN*5 .0E-05 ) , YMAX+< YMAX*5.0E-05  > . YMIN1 , YMAX1 « NTICY > 
GO  TO  42 

THE  X  ANO  Y  MIN  ANO  MAX  WILL  BE  PRINTED. 

WRITE (5,31  )XMIN, XMAX, YMIN, YMAX 

FORMAT(  '  XMI N* '  ,  E  1  5 . 8  ,  /  ,  1  XMAX- 1 , E 1 5 . 3 , / , ’  YMI N« ' f E 15 . 8 , / , 

1  1  YMAX* '  ,  E  1  5 . 8  ) 

WRITE ( 5 • 32  > 

WRITE (5,33) 

FORMAT <  /  ,  '  ENTER  THE  XM I N , XMAX , YM I N , YMAX  YOU  WISH  TO  1  > 

FORMAT ( ' S  USE  SEPARATED  BY  COMMAS :  1  > 

READ ( 5.3  4  >XMIN1 .XMAX I . YMINI , YMAX 1 
FORMAT( 4E 1 5 .0 ) 

WRITE! 5,40) 


TIC  MARKS  ARE  THE  DIVISIONS  ON  THE  AXIS 


FORMAT! / . ' SENTE R  THE  #  OF  X  TIC  MARKS.#  OF  Y  TIC  MARKS: 
READ  <5,41  )NTICX, NTICY 
F  ORMAT (212) 

CONTINUE 


THESE  VALUES  ARE  THE  MAX.  &  MIN  OF  THE  TEKTRONICS  PLOTTER 


TXMIN- 

txmax* 

TYMIN- 
TYMAX* 
ITXMIN 
ITXMAX 
I TYM I  ft 
I TYMAX 
GO  TO 


600 

3999 

550 

2731 

-TXM1N 

■TXMAX 

-TYMIN 

-TYMAX 

72 
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THE  SUBROUTINE  SCALE ,  AUTOMATICALLY  SCALES  THE  DATA  AND  CALLS 
SUBROUTINE  AXIS 


CALL  PON<  5  ) 
CALL  TERM<0,0) 


1  CALL  AXIS! XMINI ,XMAXI , NTICX , TXMI N , TXMAX * YMI N l # YMAX 1 , NT! CY , TYMI N , 

1  TYMAX  ,0 ) 


A4662  CHANGES  THE  SI2ES  OF  THE  CHARACTERS  IN  LABEL 


CALL  A4662< 5, 'A' ,56,80,0,0) 

SCALE  THE  POINTS 

XRANG-XMAX 1 -XMIN 1 
TXRANG-TXMAX-TXMIN 
YRANG=YMAX1-YMIN1 
TYRANG-TYMAX-TYMIN 


THIS  SECTION  DETERMINES  THE  TYPE  LINE  DESIRED.  WHEN  NDASH-1 
-SOLID  LINE, NDASH* 2 -DASH ED  LINE, N DASH-3- DASH-DOT, 

AND  NDASH-4  IS  SMALL  DASHES. 


60  CONTINUE 

IF  ( NDASH  .EQ.  1)  DASH< 1 >-2000.0 

IF  (NDASH  •  EQ  •  2 )  DASH(l)-40.0 
IF  (NDASH  .EQ.2 >DASH( 2 >-40.0 


I  F < NDASH  .EQ.3  )DASH< 1 >*50.0 
I F <  NDASH  .EQ.3)DASH(2  > -50 . 0 
I F ( NDASH  .EQ.3 )DASH( 3 >-4.0 
I F ( NDASH  .EQ.3  )0ASH<  4  >*50.0 


I F ( NDASH  .EQ. 4  )DASH<  1  >10.0 
I F ( NDASH  .EQ.4 )DASH<  2 >-25.0 
I F ( NDASH  .EQ.4)DASH( 3)*10.0 
IF<  NDASH  .EQ.4  >DASH<  4  >*25.0 
IF( NDASH  .EQ.4 )0ASH<  5  >-10.0 
I F <  NDASH  .EQ. 4  )DASH( 6>-25.0 


I F ( NDASH  .EQ.4  > NDASH-6 
I F ( NDASH  .EQ.3  > NDASH - 4 
MO-1 


II 


OOOOO  CT  OOOOO  cn  OOOOO  OOOOO 


00  62  1*1,  NPQNT 

I?\ Y( I ) .LT. YMIN1  .OR.  X( I )  .LT.  XHIN1  .OR.  X< I >  .GT.  XMAX1JG0T0  62 
XVAL ( MO  )  *  I NT( < ( X< I 1-XMIN1  )*( TXRANG )/< XRANG ) J+TXMIN  > 

YVAL ( MO  )  *  I NT( < { Y(  I  )-YMINl  )*< TYRANG  )  / <  YRANG >  >+TYMIN  > 

61  FORMAT (2E15.3.2I4  ) 


TPLOT  POSITIONS  PEN  AND  WHEN  ITYPE<0,  A  POINT  IS  DRAWN 


IF ( NAN  .EQ.  ' Y  *  )  CALL  TPLOT  < XVAL ( MO > . YVAL < MO > , - I ) 


TKDASH  PLOTS  THE  DESIRED  TYPE  LINE 


IF  (NAN  .NE.  ’Y1)  CALL  TKDASH<  XVAL (MO ) ♦ YVAL <  MO ) *MO, DASH , NDASH ) 
MO*MO+ 1 

2  CONTINUE 

CALL  TPLOT( XVAL(MO) .YVAL(MO) .0) 


TERM(  1,0)  DUMPS  THE  BUFFER 


CALL  TERM<1,0> 
CLOSE { UNIT3! ) 
CLOSE ( UN  I T*2 ) 

3  CONTINUE 

CALL  POF F ( 5  ) 
WRITE <  5.70) 


THIS  ALLOWS  FOR  UP  TO  4  CURVES  ON  l  GRAPH. 


70  FORMAT( / , ' SDO  YOU  WANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  ’ ) 
READ ( 5.71  )  ANSW 

71  FORMAT ( A 1  ) 

IF( ANSW  .EQ.  ' Y' )  GO  TO  120 
GO  TO  140 

72  CONTINUE 
ITYPE-0 

WR I TE ( 5 , 80 ) 
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IF  YOU  DON’T  WANT  A  LINE  PLOT  YOU  WILL  GET  A 
POINT  PLOT. 


C 

C 

C 

C 

c 

c 


30  FORMAT! / , ' SDO  YOU  WANT  POINT  PLOT?  Y/N  ') 

READ! 5,81  )  NAN 
81  FORMAT <  A1  ) 

IF  (NAN  .EQ.  'Y'  )  ITYPE--1 
WR I TE ( 5  *  82  ) 


C 

C 

c 

c 

c 

c 


82  FORMAT! / , ' $00  YOU  WANT  LABELS?  IF  USING  CRT,  TYPE  Ns  ') 
READ (5,83)1  LAB 

83  FORMAT! A2> 

IF ( I  LAB  .EQ,  'N'  )  GO  TO  S0 
WR I TE ( 6 , 8  4  ) 

84  FORMAT <  /  ,  ' STYPE  IN  LABEL  FOR  PLOT:  •) 


THERE  ARE  THREE  LABELS.  ONE  LABEL  IS  THE  TITLE  LABEL 
AND  THEN  THERE  IS  A  LABEL  FOR  THE  X  AND  Y  AXIS. 


C  . 

C  : 

C  :  ICNT  IS  THE  LENGTH  OF  WORD,  ILFA  IS  THE  WORD 

C  : 

C  : . . . 


90  READ! 5,91 )ICNT, ILFA 

91  FORMAT! Q, 70A1 > 

IF! ICNT . EQ .0 )G0  TO  93 
DO  92  I ■ 1 t ICNT 
I TXT ( I >-ILFA< I  ) 

92  CONTINUE 
NT* ICNT 

I F ( A  , EQ . 1 >G0  TO  111 
I F ! B  . EQ . 1 )G0  TO  113 


C  . 

C  : 

C  :  PON  TURNS  THE  PLOTTER  ON 

C  : 

C  : . 


93  CALL  PON! 5) 
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TERM*  0,0)  CLEARS  THE  SCREEN 


CALL  TERM<0.0> 

CALL  TP L OT ( 0 , 2400,0 ) 

I  F  (  NT  .GT.  DWRITE  <  6 , 100  X  ITXT(  I X  ) ,  I X- 1, NT ) 
100  F ORMAT (  •  *  ,T<ICENT-<  ICNT/2  >  > ,  <  NT>A1  > 

CALL  POF F ( 5 ) 

WRITE<  5,110) 

110  FORMAT <  / ,  ' STYPE  IN  LA8EL  FOR  X  AXIS:  '  > 

1 

GC  TO  90 

111  CALL  TP  L  OT( 0 , 250,0 ) 

ICENT-50 

CALL  PON( 5  ) 

CALL  A4S62(5f 'A' ,50*75,0,0) 

CALL  TE RM<  2 ,0 ) 

WR I TE ( 6 , 100 ) ( I  TXT ( IX >t IX-1 ,  NT  > 

CALL  POF F <  5  ) 

WRITE! 5 ,112) 

112  FORMAT* /, 1 STYPE  IN  LABEL  FOR  V  AXIS:  ') 

B  *  1 

A«0 

GO  TO  90 

113  CALL  TP  LOT! 125,0,0) 

ICENT-35 

CALL  PON( 5 ) 

CALL  A4662! 5, 'A' ,50,75,90,0) 


CALL  TERM!  2 ,0 ) 

WRITE! 6, 100 >< ITXT( IX ) , IX-1 ,NT) 

CALL  A4662( 5, 'A' ,44,60,0,0) 

GO  TO  51 

120  WRITE (5,121 > 

121  FORMAT! / , 1  YOU  HAVE  A  CHOICE  AS  TO  WHICH  TYPE  LINE  TO  USE.  ') 
WRITE! 5, 122) 

122  FORMAT!/,'  SOLID  LINE  -  TYPE  1  DASHED  LINE  -  TYPE  2') 

WRITE! 5, 123  > 

123  FORMAT! '$  DASH-DOT  LINE  -  TYPE  3  SHORT  DASHES  -  TYPE  4  ’> 

READ  (5,124 )NDASH 

124  FORMAT!  ID 
GO  TO  10 

125  WRITE (5,130) 

130  FORMAT!'  ENTERED  WRONG  DATA  FILE') 

CLOSE! UNIT-5  > 

CALL  PL  READ! X , Y , NPOI NT  ) 

131  WR ITE ( 5 , 1 30 ) 

CALL  PL  READ! X , Y , NPOI NT ) 

140  WRITE! 5, 141) 

141  FORMAT!/, '  TO  GRAPH  ANOTHER  CURVE,  TYPE  RUN  PLOTTER') 

ENO 
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APPENDIX  3 


SUBROUTINES 

The  following  subroutines  are  those  required  for  the  program  PLOTTER: 
Subroutine:  XYPLOT 


THIS  SUBROUTINE  CREATES  TWO  UNFORMATTED  REAL  ARRAYS 
PROGRAMMED  BY  TINA  RUGGIERO 
SEPTEMBER ,  1980 


SUBROUTINE  XYPLOT(X,Y, NPONT) 


THE  ARGUMENTS  X.Y, NPONT  ARE  RESPECTIVELY,  THE  ARRAY  CONTAINING 
ABSISSAS,  THE  ARRAY  CONTAINING  ORDINATES,  AND  THE  NUMBER  OF 
POINTS  TO  BE  PLOTTED. 


REALX( X  >,Y< 1 ) 

INTEGER  I  , SUB , ANS , NPONT 

WRITE (5,10) 

10  FORMAT ( // , 1  ENTER  ORDERED  PAIR  SEPARATED  BY  A  COMMA1) 

1*0 

WRITE ( 5  «  20) 

20  FORMAT { / '  WHEN  FINISHED  ENTERING  DATA , TYPE  "CTRL  ZM ' ) 

OP  EN ( UNIT-1 , NAME  » ' DATAX.DAT'  ,TYPE= '  NEW  *  .FORM- 1  UNFORMATTED  1  ) 
OF  I N( UNIT-2,  NAME* ' DATAY.DAT'  .TYPE- 1  NEW .FORM- 1  UNFORMATTED  *  ) 
15  1*1  +  1 

WR I TE ( 5 , 22  ) 

22  FORMAT!  / ' SDATA?  ‘  > 

READ! 5, 30, END-49 >X(  I ),Y(  I  ) 

30  FORMAT ( 2E 1 5 . 8 ) 

GO  TO  15 

49  CLOSE! UNIT-5 ) 

WRITE! 5,50) 

50  FORMAT!/, ' SOO  YOU  WANT  TO  CHANGE  ANY  VALUES  ! Y/N  )?  ') 

READ <  5 . 60 )ANS 

60  FORMAT ! A1 > 

IF  ! ANS . EQ . ‘ N '  >GO  TO  40 

WRITE! 5, 70) 

70  FORMAT!  * SENTER  SUBSCRIPT  NUMBER  OF  CORRECTION  1  > 

READ ( 5 , 30 ) SU3 
80  FORMAT! 12) 

WR I TE ! 5 , 90 ) 

90  FORMAT! ' SRE-ENTER  BOTH  THE  X  AND  Y  VALUES  ') 

READ  (5.30)  X! SU8  ), Y! SUB  ) 

GO  TO  49 

40  NPONT  *1-1 

DO  91  1*1 .NPONT 


(continued) 
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Subroutine 


XYPLOT  (continued) 


WRITE ( 1 >X!  I ) 

WRITE! 2  )Y<  I  > 

91  CONTINUE 

CLOSE! UNIT*1  ) 

CLOSE! UNIT»2  ) 

WRITE ( 5 , B80 ) 

S00  FORMAT ( / ,  *  REMEMBER  YOU  HAVE  JUST  CREATED  TWO  UNFORMATTED  ARRAYS  * ) 

WRITE  <  5,301  > 

801  FORMAT (  WHICH  ARE  CALLED  DATAX.DAT  AND  DATAY.DAT’) 

WR I TE  <  5 , 100 ) 

100  FORMAT (  /  ,  *  DATA  FILE  CLOSED1) 

RETURN 

END 


Subroutine:  SCALE 

Entry:  AXIS 


SUBROUTINE  SCALE ( DMN ,  DMX , SMN , SMX , ND I V  > 

"SCALE  *  DETERMINES  AN  APPROPRIATE  SCALE  WITH  NEAT  LABELS 
AT  MULTIPLES  OF  1,2,  OR  5. 

REQUIRES: 

DMN-MIN  DATA  VALUE 
DMX-MAX  DATA  VALUE 
RETURNS: 

SMN=MI N  SCALE  VALUE 
SMX-MAX  SCALE  VALUE 
NDIV-NUMBER  OF  SCALE  DIVISIONS 
L.  D.  LUKER  8/15/80 

REVISED  BY  TINA  RUGGIERO 

TEKINT(Z)*ANINT(Z-. 499999) 

NFMTC VAL  >-MIN i <  3 . -TEKINT<  1 . +ALOG 10< ABS< VAL ) >  >,2.  ) 

D  TYPE  *, ’SCALE  DMN* 1 , DMN , ’  DMX* ' , DMX 

R-< DMX-DMN >/6. 

S*10.**<TEKINT(ALOG10<  R>  > ) 

T*R/S 

IF  (T.GT.2)  GOTO  110 
IF  (T.EQ.l >  GOTO  130 
S*S*2 
GOTO  130 

110  IF  <  T. GT, 5  )  GOTO  120 

S»5*S 
GOTO  130 
120  S«10*S 

130  SMN*TEKINT(DMN/S) 

SMN-S*<  SMN  +  2  > 

140  IF  <  <  SMN-DMN  /  /(DMX-DMN). LE, 1  E  -  5  >  GOTO  150 

SMN-SMN-S 
GOTO  140 

150  SMX*TEKINT( DMX/S ) 

SMX«S*<  SMX-2  > 

160  IF  ( (DMX-SMX)/<DMX-DMN).LE.lE-5)  GOTO  170 

SMX  »SMX ♦ S 
GOTO  160 

170  N  0 1 V  *  N 1 N  T ( ( SMX -SMN )/S ) 

D  TYPE  *,  'SCALE  '  SMN-',SMN(’  SMX*'fSMX,'  NOIV*’,NOIV 

RETURN 


(cont inued) 
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Subroutine:  SCALE  (continued) 
Entry:  AXIS  (continued) 


C 

ENTRY  AXIS!XMN,XMX,NXDIV,TXMN, TXMX ♦ YMN , YMX ,NYDIV,TYMN,TYMX, IZL > 
C  DRAWS  AND  LABELS  THE  X  &  Y  AXES 
C  REQUIRES: 

C  XMN-MIN  X  VAL 

C  XMX-MAX  X  VAL 

C  NXDIV-NUMBER  OF  X  SCALE  DIVISIONS 

C  TXMN-TERMINAL  X  VAL  CORRESPONDING  TO  MIN  X  VAL 

C  TXMX*TERMINAL  X  VAL  CORRESPONDING  TO  MAX  X  VAL 

C  ALSO  ALL  THE  ABOVE  FOR  Y 

C  I ZL  =0  DON'T  DRAW  ZERO  LINE  ,  IZL-l  DRAW  ZERO  LINE 

D  TYPE  * , 'AXIS*' ,XMN,XMX,NXDIV,  TXMN , TXMX ,YMN,YMX,NYDIV*TYMN,  TYMX 

T1 *AMAX I ( ABS ( XMN ),ABS!  XMX  > ) 

Tl-10.**!  3*TEKINT(  (  TEfCINT(ALOGI0(Tl+ABS(  (  XMX- XMN  )/ 1 E 4  )  )  )  ) /3 •  )  ) 

X 1 »XMN/T 1 

XD I V* ( XMX -XMN )/( 2*NXD I V ) 

XDX»< TXMX-TXMN >/( 2*NXDIV) 

IX-TXMN 
I  Y*TYMN 

CALL  TP  LOT  (  I X  -  1  44  ,  I Y-20 ,  J0T ) 

N  =  2 

IF  ! ABS ! X 1 ) .  GT . . 001 )  N»NFMT!X1> 

CALL  TERM( 2,0) 

VRITE<  6 , 2  1J0T  )X  1 
DO  180  1=1 , NXD I V*2 

Xl-<  XMN+I*XDIV)/T1 

IF  ( ABS  ( XI ) .LT. . 1 )  X1=0. 

I  X*TXMN  +  <  1-1  ) *XDX 
CALL  TP  LOT (  IX, IY,0> 

I X*TXMN+ I  *XDX 
CALL  TP LOT( IX, IY, 1  ) 

CALL  TPlOT! IX, I Y+20 , 1 ) 

IF  ( 1/2. ,NE.A1NT( 1/2. >)  GOTO  130 
CALL  TPLOT<  i:<f  IY  +  40, 1  ) 

CALL  TPLOT! IX-144, IY-20,0) 

N  =  2 

IF  ( ABS( XI  ) .  GT . .001 )  N  =  NFMT( X 1 ) 

CALL  TERM<  2,0) 

WRITE! 6 , 2 10 )X 1 
180  CONTINUE 

CALL  TPLOT! IX-240, IY-128,0) 

CALL  TE RM( 2,0) 

IT1*ANINT(ALOG10!T1 ) ) 

WRITE! 6,220)IT1 
C 

T1 *AMAX 1 { ABS! YMN  ) , ABS! YMX ) ) 

T 1 » 10 . **  < 3*TEKINT( ( TEKI NT! ALOG 10! T1 +ABS ! < YMX- YMN )/lE4 ) ) ) )/3. > ) 

Y 1 =YMN/T1 

Y0IV-! YMX-YMN  >/! 2*NY0IV) 

YDX*  ( TYMX-TYMN  >/! 2*NYDIV) 

IY-TYMN 

IX-TXMN 

CALL  TPLOT! IX-288, I Y+80, 0 ) 

N*2 

IF  ( ABS ! Y l ) ,GT . . 001 )  N  =  NFMT ! Y 1  ) 

CALL  TERM! 2,0) 

WRITE! 6,210>Y1 
00  190  1-1  ,NYDrV*2 
Y  1  * < YMN+ I *YD I  V  ) /T1 
IF  (ABS! VI  )  • LT. .11  Yl-0. 

I Y ■ TYMN  +  <  1-1  J  *  Y  D  X 
CALL  TPLOT! IX, IY,0) 

I Y* TYMN+ I  *  YDX 


(continued) 
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Subroutine:  SCALE  (continued) 

Entry:  AXIS  (continued) 

CALL  TPLOT (  IX  ,  I  Y  ,  1  > 

CALL  TPLOT ( IX+20, I Y, 1 ) 

if  <1/2. .ne.aint< i/2. >)  goto  190 

CALL  TPLOT {  IX+40, IY,1  ) 

CALL  TPLOT( I  X-288 , IY+56,0) 

N-2 

IF  < ABS( Y1  ) .GT. .001 )  N*NFMTC  Y 1  ) 

CALL  TERMC  2,0) 

WR I TE ( 6 , 2 10 ) Y 1 
190  CONTINUE 

CALL  TPLOTC IX-316, IY+160,0) 

CALL  TERMC 2,0) 

IT1=ANINT(ALOG10<  T1  }  ) 

WRITE( 6,220) IT1 

ITXMNaTXMN 

ITXMX-TXMX 

ITYMN-TYMN 

ITYMX»TYMX 

CALL  TPLOTC I TXMN , ITYMX , 0 ) 

CALL  TPLOTC ITXMX, ITYMX, 1 > 

CALL  TPLOTC  ITXMX , ITYMN, 1  ) 

IF  ( IZL.EQ.0)  GOTO  200 

IF  ( YMN*YMX . GT .0  >  GOTO  200 

IVZERO-C -YMN  )*< TYMX-TYMN )/( YMX-YMN  >+TYMN 

CALL  TPLOTC ITXMN, 1YZERO.0) 

CALL  TPLOTC ITXMX, IYZERO, 1 > 

200  RETURN 

C  FORMAT  STATEMENTS 
210  FORMATC  '  • ,F5.<N>  ) 

220  FORMATC  '  ’  ,  ' <  *E ' ♦ 1 3 ,  '  ) 1  ) 

END 


Subroutine :  PLREAD 


C  . 

C  : 

C  :  THIS  SUBROUTINE  IS  DESIGNED  TO  READ  X  AND  Y  COORDINATES  FROM  EITHER 

C  :  FORMATTED  OR  UNFORMATTED  FILES  CONTAINING  X,  Yt  OR  X  AND  Y  DATA. 

C  :  AS  IT  READS  THE  NUMBER  OF  POINTS  SPECIFIED  C NPTS )  IT  ALSO  DETERMINES 

C  :  THE  MINIMUM  AND  MAXIMUM  VALUES  OF  EITHER  OR  BOTH  COORDINATES.  IT  ALSO 

C  :  MODIFIES  NPTS  IF  AN  ATTEMPT  IS  MADE  TO  READ  MORE  VALUES  (OR  SETS  OF 

C  :  VALUES)  THAN  ARE  CONTAINED  IN  THE  SPECIFIED  FILE. 

C  : 

C  : . 

C  WRITTEN  BY  BOB  ANDERSON  ANO  TINA  RUGGIERO 


SUBROUTINE  PLREADC X t Y f NPTS  ) 


(cont inued) 


IB 


aTfcii 


Subroutine:  PLREAD  (continued) 


C 

C 

c 

c 

c 

c 

c 


THE  FILE  NAME ( S  )  ARE  SAVED  ALONG  WITH  THE  NUMBER  OF  FILES  AND  THE 
FILE  TYPE(S).  FILE  TYPE  -  2  *  NUMBER  OF  FILES  ♦  1  FOR  UNFORMATTED,  OR 
2  FOR  FORMATTED. 


COMMON  FILEX, FILEY, IFTYP 


C  . 

C  : 

C  :  ARRAYS  TO  SAVE  UP  TO  NPTS  COORDINATE  VALUES. 

C  : 

C  : . 


DIMENSION  X< 1  ) , Y( 1  ) 


C 

C 

C 

c 

c 

c 


ARRAYS  IN  COMMON  TO  SAVE  THE  FILE  NAMECSK  FILEX  IS  USED  FOR  ONLY  ONE 
FILE  . 


BYTE  FILEX(32  ),FILEY(32)  ,  FMT<  32  ) 


C  . 

C  S 

C  i  DETERMINE  IFTYP  BY  FIRST  FINDING  OUT  HOW  MANY  FILES  ARE  TO  BE  USED. 

C  : 

C  : . 


50  CLOSE { UN IT*5  > 

WRITEI5, 1000)  'v 

1000  FORMATC / * 3C00RDINATES  CONTAINED  IN  l  OR  2  FILES?  ’  > 
READ<  5, 1010, END-50 )NF I LES 
1010  FORMAT(  I  4 ) 

IF<  NFILES.LT. 1 .OR.NFILES.GT.2  )  GOTO  50 


C  . 

C  2 

C  :  AND  THEN  FIND  OUT  IF  IT  OR  THEY  ARE  FORMATTED  OR  UNFORMATTED. 

C  : 

C  : . 


(continued) 
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Subroutine:  PLREAD  (continued) 


100  CLOSE ( UN IT*5  > 

WR I TE <  5 ♦ 1020) 

1020  FORMAT <  /  ,  ' SARE  FILES  ( 1 ) UNFORMATTED  OR  ( 2 > FORMATTE D :  1  > 

REA0( 5 » 1010, E NO *100 )  I  TYPE 
IFTYP*NFILES*2+ITYPE 


C  . 

C  : 

C  :  NOW  READ  THE  DATA  UP  TO  NPTS.  MODIFY  NPTS  IF  <  PARAMETER  PASSED. 

C  : 

C 


105 


I F (  IFTYP.EQ.3) 
IF  1 IFTYP.EQ.4) 
I F < IFTYP.EQ.5  ) 
I F ( I FTYP . £Q . 6  ) 
GOTO  50 


GOTO  200 
GOTO  300 
GOTO  400 
GOTO  500 


C  . 

C  ; 

C  :  BOTH  COORDINATES  ARE  CONTAINED  IN  ONE  FILE  AND  IT  IS  UNFORMATTED. 

C  : 

C  :  .  .  .  . . 


200  VRITE(5, 1050) 

1050  FORMAT ( / 1 $F I LENAME  FOR  X,Y  DATA:  * > 

READ(  5  *  1060, END5*  50  )LEN, FILE)' 

C  NOTICE  LAST  CHANCE  TO  START  OVER i  (~Z> 

1060  FORMAT ( Q , 32A 1 > 

F I L£X<  LEN+ 1  >«0 

OPEN*  UNIT=*1  ,  NAME  »  F  ILEX,  FORM3  '  UNFORMATTED  1  ,  TYPE*1  OLD'  .ERR-800) 
C  NOTICE  THERE  MUST  BE  AT  LEAST  ONE  POINT. 

DO  220  1*1 , N P T S 

READ< 1 ,END-240)X( I ),Y< I ) 

0*1 

220  CONTINUE 

C  MODIFY  NPTS  TO  REFLECT  THE  ACTUAL  NUMBER  OF  POINTS  READ. 

240  NPTS-U 

CLOSE <  UfJ IT*  1  ) 

GOTO  900 


C  . 

C  : 

C  :  BOTH  COORDINATES  ARE  CONTAINED  IN  ONE  FILE  AND  IT  IS  FORMATTED. 

C  : 

C  : . 


(continued) 
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Subroutine 


PLREAD  (continued) 


300  CL0$E(UNIT-1  ) 

WR ITE  <  5 , 3000 ) 

3000  FORMAT! / ' SENTER  FORMAT  TO  USE  FOR  READING:  (IE.  (2F10.0)  >  ') 

READ(5,3010)FMT 
3010  FORMAT<  32A1  ) 

WRITE! 5, 1050) 

READ! 5, 1060,END-50)LEN,FILEX 
FILEX!LEN  +  I  )-0 

OPEN! UNIT- 1 ,NAME-F ILEX, TYPE-' OLD ' .ERR-800) 

DO  330  I-l , NPTS 

READ< 1 .FMT.ERR-300. END-240 )X( I ) , Y( I > 

J-I 

330  CONTINUE 

GO  TO  240 

C  . . . 

C  : 

C  :  COORDINATES  ARE  CONTAINED  IN  TWO  FILES  AND  ARE  UNFORMATTED 

C  : 

C  : . 

400  WRITE( 5 , 160) 

160  FORMAT!/, 'SENTER  FILENAME  FOR  X  VALUES:  •> 

READ  (5,1060, END- 900 JLENX.FILEX 
WR I TE ( 5 , 360  > 

360  FORMAT! /, 'SENTER  FILENAME  FOR  Y  VALUES:  *) 

READ! 5 , 1060, END-900  >LENY, FILEY 
F  ILEX! LENX+ 1 >-0 
F ILEY! LENY+ 1  )«0 

OPEN! UN  IT- 1 , NAME -FI  LEX, TYPE -'OLD' . ERR-800 , FORM*  *  UNFORMATTED '  > 

OPEN! UNIT-2, NAME-F I  LEY, TYPE- 'OLD'  , ERR=800, FORM- ' UNFORMATTED  1  > 

DO  460  I-l, NPTS 
READ! 1 , END-340 ) X( I ) 

READ (2, END-3 40  )Y! I ) 

3*1 

460  CONTINUE 

340  NPTS-0 

CLOSE ( UN IT* 1 > 

CLOSE! UNIT-2 ) 

GO  TO  900 


C 
C 
C 

500  CL OS E(U NIT-1 ) 

WR I TE ! 5 , 3000 ) 

READ ( 5 , 3010 ) FMT 
WRITE! 5, 160) 

READ! 5, 260, END-900 )LENX,F ILEX 
260  FORMAT! Q,32A1  ) 

WRITE! 5,360) 

READ! 5, 250, END-900 )LENY , FILEY 
F I  LEX! LENX+ 1  ) -0 
F!LEY(LFNYM  )«0 

OPEN! UN  IT- l .NAME -FI  LEX, ERR-800, TYPE*' OLD*  ) 
OPEN! UNIT-2 .NAME-FILE Y, ERR-800, TYPE -'OLD' ) 
DO  560  I-l , NPTS 
READ! 1 ,FMT,ENO-340)X( I ) 

READ! 1 , FMT , END-340 ) Y ( I > 

J-I 


COORDINATES  ARE  IN  TWO  FILES  AND  ARE  FORMATTED 


(continued) 


Subroutine : 


PLREAD  (continued) 


56*  CONTINUE 

GO  TO  34* 

80*  UR  I TE  <  5 , 801  ) 

801  F ORMAT (  /  /  ,  '  YOU  ENTEREO  WRONG  DATA  FIL£(S)i  ') 

GO  TO  105 
900  RETURN 

END 


Subroutine:  PON 
Entry:  POFF 


SUBROUTINE  PON  (LUN) 

C  SUBROUTINE  TO  TURN  ON  OR  OFF  THE  TEKTRONIX  4662  PLOTTER. 

C  WRITTEN  BY  RICK  SCOTT 

BYTE  PLON<  3),PL0FF(3) 

INTEGER  I PRM<  6  ) 

DATA  PLON/27, 65, 69/PL OFF/27, 65, 70/ 


CALL  GETADR  ( IPRM,PLON  > 

I P  RM( 2  ) * 3 

CALL  QIO  ( -410, LUN, 24, , , IPRM, > 
CALL  WAITFR  (24) 

RETURN 

ENTRY  POFF 

CALL  GETADR  <IPRM,PLOFF> 

I P RM( 2  > *3 

CALL  QIO  < "410, LUN, 24, ,, IPRM, > 
CALL  WAITFR  (24) 

RETURN 

END 


Subroutine:  TXDASH 


C  TKOASH . FTN  O.D. GEORGE  OCTOBER  1975 

C 

C  THE  PURPOSE  OF  SUBROUTINE  TKOASH  IS  TO  PLOT  A  CURVE  AS  A  SERIES  OF 
C  ALTERNATING  BRITE  AND  DARK  LINE  SEGMENTS  OF  ARC  LENGTHS  SPECIFIED 
C  BY  THE  USER 
C 

C  SUBROUTINE  TKDASHI I  X , I Y , N , DASH , NDASH > 

C 

C  IX,  IY  ARE  SCREEN  OR  PAPER  COORDINATES 

C 

C  N  IS  THE  NUMBER  OR  INDEX  OF  THE  POINT  IX, IY 

C  N-l,  IS  TREATED  SEPERATELY,  N.GE.l 


(continued) 
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Subroutine 


TKDASH  (continued) 


OASH  IS  AN  ARRAY  OF  SCREEN  COORDINATE  ARC  LENGTHS 
FOR  ALTERNATELY  BRITE  AND  DARK  LINE  SEGMENTS 
ODD  INDICES  ARE  BRITE  SEGMENTS 
EVEN  INDICES  ARE  OARK  SEGMENTS 
I  .  E .  I  1  2  3  4 

DASH(I)  10  10  2  10 

BRITE  DARK  BRITE  DARK 

NDASH  IS  THE  LENGTH  OF  THE  DASH  ARRAY 

4  SHOULD  PROVIDE  A  WIDE  RANGE  OF  SYMBOLS 
TO  FORCE  ALTERNATE  BRITE-DK  LINE  SEGMENTS 
NDASH  IS  EVEN 

FOR  SOLID  LINE  USE  NDASH  =  1  &  DASH ( 1  ) -LARGE# 


SUBROUTINES  REQU I  RED : TPLOT 
***** 


SUBROUTINE  TKDASH ( I X , I Y , N , DASH , NDASH > 
COMMON  /LUN  /LUN 
DIMENSION  DASH(NDASH) 

DATA  ZERO/0.0/ 

LUN-5 

IF( N.GT. I )GOTO  100 

THE  FIRST  POINT  INITIALIZES  THINGS 

XLAST-IX 

YLAST-IY 

LASTDK* I 

I  DASH* 1 

OLDARC-ZERO 

CALL  TPLOT  ( IX, IY,0) 

RETURN 


ENTRY  FOR  N.GT. 1 

00  CONTINUE 

X»I  X 
Y  » I  Y 

THE  CODE  BELOW  IS  REPEATED  UNTIL  HAVE  PLOTTED  SEGMENTS  TO 
POINT  IX, IY 

00  CONTINUE 


DX-X-XLAST 
DY* Y-YLAST 

ARC*$QRT<  DX*0X+DY*DY  ) 

IF< ARC. EQ. ZERO >GCTO  1000 

THE  PATH  DEPENDS  ON  WHETHER  ARC  EXTENDS  BEYOND  THE  NEXT 
LINE  SEGMENT  SPECIFIED  IN  OASH<IDASH> 

I F  < ( OLDARC  *ARC  )  .GE . ( DASH< I  DASH  >  >  >GOTO  300 

THE  ARC  TERMINATES  WITHIN  THE  CURRENT  LINE  SEGMENT 


(continued) 


Subroutine:  TKDASH  (continued) 


XINC-DX 

YINC-DY 

QL  DARC-OL  OARC ♦ARC 
GOTO  400 
C 

c 

C  THE  ARC  TERMINATES  AT  OR  BEYOND  THE  CURRENT  LINE  SEGMENT 

C 

C 

300  CONTINUE 

XINC«0X*(  DASH<  IDASH  >-OL DARC  > /ARC 
Y I NC-OY* ( DASH<  I  DASH  > -OLDARC  ) /ARC 
OLDARC-ZERO 
C 

400  CONTINUE 

X0-XLAST+XINC 
Y0* VLAST+Y I NC 
C 

C  IF  IDASH  IS  EVEN  PLOT  DARK  VECTOR 
C  IF  IDASH  IS  ODD  PLOT  BRITE  VECTOR 
C 

C  MOOIFY  TO  NOTE  THE  TRANSITION  FROM  LITE  TO  DARK 

C  MOVE  TO  EDGE  WITH  DK  VECTOR  f  THEN  PUT  DOWN  DK  VECTOR  AT  EDGE 

C 

C  FOR  DK  VECTOR  SKIP  PLOTTING  UNTIL  SENSE  LITE-TO-DK  TRANSITION 
C 

I DARK-MOD ( I  DASH ♦ 2 ) 

IX0-X0 

IY0-Y0 

IFUDARK.EQ.0)GOTO  410 
I F ( LASTDK . EQ . I  DARK )GOTO  405 
I XLAST-XLAST 
I YLAST* YLAST 

CALL  TPLOT  ( I XLAST , I YLAST , 0 > 

CALL  TPLOT  ( I XLAST , I YLAST , 1  ) 

405  CONTINUE 

CALL  TPLOT  < 1 X0 , I Y0 , I DARK ) 

410  LASTDK* I  DARK 

C 

C  SETUP  FOR  NEXT  POINT 
C 

XL AST-X0 
YLAST  *Y0 
C 

C  REPEAT  PLOTTING  UNTIL  ARC  TERMINATES  WITHIN  A 
C  SEGMENT  OF  OASH 
C 

C  I.E.  OLDARC. NE. ZERO 
C 

I F f  OLDARC . NE . ZERO  JGOTO  1000 
I  DASH-MOD (  I  DASH , N DASH )  ♦  1 
GOTO  200 

C 

C  EXIT 
C 

1000  CONTINUE 
RETURN 
ENO 
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Subroutine:  MINMAX 


THIS  SUBROUTINE  DETERMINES  THE  MINIMUM  AND  MAXIMUM  VALUE  OF  ARRAV 
■A*  WHERE  N  IS  THE  NUMBER  OF  POINTS. 


WRITTEN  BY  TINA  RUGGIERO 
SUBROUTINE  MI NMAX( A,MIN .MAX , N  ) 
REAL  A ( N  > . MA X , M I N 
INTEGER  I  ,  N 
MIN-Al 1  ) 

MAX-AI 1  ) 

DO  30  I *2 , N 

IF  <A< 1 ).LT.MIN)MIN*A< I  ) 

IF  (AC  I > .GT.MAX  )MAX-A< I  ) 

30  CONTINUE 

RETURN 
END 


Subroutine:  TPLOT 


SUBROUTINE  TPLOT  (IX.IY.M) 

C  WRITTEF  BY  RICK  SCOTT 

C  REVISE!  BY  BOB  ANDERSON 

C  SUBROUTINE  TO  PLOT  ON  THE  TEKTRONIX  4010  AND  613  DISPLAY 

C  TERMINALS  (AS  CHOSEN  IN  “TERM”  SUBROUTINE). 

C  FORTRAN- 1 V  BUFFERED  VERSION. 

C  VALUES  TO  PLOT:  IX. IY 

C  MODES  TO  PLOT:  M>0  (BRIGHT).  M-0  (DARK),  M<0  (POINT) 

C  LUN  6:  THIS  SUBROUTINE  USES  QIOB. 

C  REMEMBER  TO  PURGE  THE  BUFFER  WHEN  DONE  (WITH  TERM). 

BYTE  IOUT( 3  ) 

1-0 

IOUT( 1 )-000 

IF  ( M.GT.0  >  GOTO  11 

C  INITIAL  PLOT,  DARK  PLOT,  POINT  PLOT- 

10  I-I  +  l 

I OUT ( I  )» " 35 

C  ALL  MODES--SEPARATE  COORDINATES  INTO  HIGH-  AND  LOW-ORDER  BYTES 

11  I-I  +  l 

I OUT ( I )« I Y/ 1 23  +  32 
I-I  +  l 

I OUT< I )»( I Y-4*( IY/4 ) >*4 
I OUT ( I  )* I  OUT ( I  )♦( I X  —  4 * ( I X/4  )  >  +  96 
I-I  +  l 

lOUTt I )»IY-I23*(  IY/128) 

IOUT (  I  )-96  +  ( IOUT( I  ) / 4 ) 

I-I  +  l 

IOUT ( I l-IX/128+32 
I-I  +  l 

1 0 ' J T ( I )- 1 X- 1 28* (  IX/12B  > 

I OUT( I >=64+( IOUT( I >/4 ) 
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Subroutine:  TPLOT  (continued) 


IF  (M.GE.0)  GOTO  20 
C  REINFORCE  FOR  POINT  PLOT 

12  I-IM 

IOUT ( I )-IOUT< 1-1  ) 

C  EXECUTE  QIC  AND  RETURN 

22  CALL  Q I  OB  (  "510,6,24,0, IOUT, I , ISW) 

CALL  WAITFR  ( 24 ) 

RETURN 

END 


Subroutine:  TERM 


SUBROUTINE  TERM! K ,  L  ) 

C  WRITTEN  BY  RICK  SCOTT 

C  THIS  SUBROUTINE  WILL  MANIPULATE  THE  TERMINAL  — 


c 

K-0, 

L-0 

ERASE 

SCREEN 

c 

K  »  1  , 

L  =0 

COPY 

SCREEN 

c 

K-2, 

L-0 

RETURN  TO  ALPHA  MODE 

c 

K-3  , 

L-0 

PURGE 

THE  OIO  BUFFER 

c 

K-B, 

L-C 

IMPLEMENT  MULTIPLEXER 

C  WHERE  B  IS  BOARD  SELECT  NUMBER  0-3 

C  WHERE  C  IS  CONTROL  NUMBER  TERMINAL ( 1 > ,  A(2>,  B(3>,  C( 4 > 

C  (COMBINATIONS  OF  TERMINALS  ARE  ALLOWED) 

C  THIS  PARTICULAR  VERSION  IS  FOR  USE  WITH  BUFFERED 

C  PLOTTING ,  AND  EVERY  CALL  TO  TERM  WILL  PURGE  THE  BUFFER. 

BYTE  IOUT ( 3  > 

1-2 

IOUT ( 1  )  * " 33  ! ESCAPE 

IF  (L.NE.0)  GOTO  10 

1  KX-K+1 
GOTO  (2,3,5, 40  > , KX 

2  IOUT<2>«"14 
GOTO  30 

3  IOUT ( 2  ) - " 27 
GOTO  30 

5  I OUT (  1  )  *  M  37 

1*1 

GOTO  30 

C  PREPARE  ASCII  CHARACTERS  FOR  MUX  BOARD  AND  CONTROL  NUMBERS 

10  IOUT( 2 )*K+  * 60 

I OUT( 3  >-2w*( L-l > ♦ " 60 
1-3 

C  OUTPUT  THE  CONTROL  SEQUENCE 

30  CALL  Q I OB  ( ”610,6,24,0, I  OUT , I , I SV  > 

C  ANO  PURGE  THE  BUFFER 

40  CALL  QIOP  ( '*510,6,24,0,  IDATt0tISW> 


1  CLEAR  THE  SCREEN 
l COPY  THE  SCREEN 
l RETURN  TO  ALPHA  MODE 


(continued) 
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Subroutine:  TERM  (continued) 


C  PAUSE  A  MOMENT  IF  SCREEN  IS  BEING  CLEARED 

IF  ( ( K  +  L  )  .NE .0)  RETURN 
CALL  WAIT  ( 1 ,2,M> 

RETURN 

END 


Subroutine:  A4662 


SUBROUTINE  A4662  < L UN , DEV , KX , KY , KA, KF  ) 

C  WRITTEN  BY  RICK  SCOTT 

C  SUBROUTINE  TO  SET  UP  THE  ALPHABET  OF  PLOTTER  DEV  ON  LINE  LUN- 

C  SIZE  OF  CHARACTERS  <X  AND  Y),  ANGLE,  AND  FONT. 

C  ENTRY  A4662R  WILL  RESET  DEFAULT  VALUES,  WHICH  ARE-- 

C  SIZE  (56X88),  ANGLE  (0),  FONT  (0). 

INTEGER  IPRM( 6  ) 

BYTE  STRING(23 ) , IRST( 3) ,DEV 

DATA  STRING/ “33, 'A' , 'T' ,0, *33, 'A' , ' I ' .3*0, * , ' ,3*0,4, 
l ’ 33 , ' A ‘ ‘ 0 ' ,4*0,4/IRST/"33, ,A> , ' V' / 

STRING! 2  )«DEV 
STRING! 4  )«KF  +  "  60 
STRING! 6 )"DEV 

ENCODE  ( 3 , 100, STRI NG( 8 ) )  KX 
ENCODE  ( 3, 100, STRING!  12 ) )  KY 

100  FORMAT  (13) 

STRING! 17  )»DEV 

ENCODE  (4,101, STRING! 19 ) >  KA 

101  FORMAT  ( 14  > 

CALL  GETADR  ( I PRM , STRI NG  ) 

I PRM! 2  )*23 

200  CALL  QIO  ( “410.LUN.24, , , IPRM.  ) 

CALL  WAITFR  (24) 

RETURN 

ENTRY  A4662R  (LUN.DEV) 

I RST! 2 ) *0EV 

CALL  GETADR  (IPRM.IRST) 

IPRM! 2  >«3 
GOTO  200 

END 
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APPENDIX  C 


COMPILATION  AND  TASKBUILDING 


The  Digital  Equipment  Corporation  RSX-11M  operating  system  provides  an 
indirect  command  file  processor  that  will  pass  commands  to  a  system  utility 
from  a  file  (indirectly)  rather  than  interactively  (directly)  from  your 
terminal.  This  facility  allows  the  user  to  create  a  file  containing  commands 
only  once,  minimizing  effort  in  rebuilding  subsequent  tasks  and  helping  to 
eliminate  typographical  or  syntax  errors. 

The  indriect-command-f ile  processor  allows  multiple  levels  of  files, 
which  expands  the  flexibility  of  its  use.  In  the  examples  provided,  note  the 
second  level  of  indirectness  used  in  PLOTTER.CMD.  The  system-utility  task 
name  can  be  included  in  the  indirect  command  file,  as  in  Example  1,  or  can  be 
external  to  the  command  file  as  in  Examples  2  and  3.  The  processor  completely 
executes  one  command  before  it  goes  on  to  the  next  command.  The  current 
command  is  also  displayed  on  the  user's  terminal  allowing  the  user  to  monitor 
progress. 

Example  1  is  an  indirect  command  file  used  to  completely  manage  the 
rebuilding  of  the  task  PLOTTER.  The  semicolon  is  used  to  denote  comment  and 
is  therefore  ignored.  Lines  2  through  6  in  Example  1  contain  commands  to  the 
system  utility  PIP  (Peripheral  Interchange  Program)  to  delete  or  purge  the 
user's  area  of  unnecessary  or  unwanted  files.  Line  7  is  a  call  to  the  system 
FORTRAN  Four  Plus  compiler  (F4P) ,  passing  it  a  second  level  of  indirect 
commands  containing  F4p  commands.  Finally,  line  8  in  Example  1  instructs  the 
System  Task  Building  (TKB)  to  receive  its  commands  from  the  file  PLOTTER. TKB. 


; PLOTTER.CMD 

PIP  PLOTTER. TSK;*/DE 

PIP  *.FTN/PU:3 

PIP  * . F4P/PU 

PIP  * . TK8/PU 

PIP  * . OBJ ; */DE 

F4P  SPL0TTER.F4P 

TKB  (?P  LOTTER  .  TKB 

Example  1 


Example  2  is  an  indirect  command  file  containing  commands  for  F4P  to 
accomplish  recompilation  of  all  the  FORTRAN  source  files  used  in  the  task 
PLOTTER. 


M 
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tRE-COMPILE  SOURCES 

PL OTTER* PL OTTER 

TERM*TERM 

TPLOT*TPLOT 

SCALE  *SCALE 

MI NMAX*MI NMAX 

QIOB-OIOB 

PON-PON 

X YPLOT*XYP  LOT 

A4662=»A4662 

PLREAD-PLREAO 

TKDASH-TKDASH 

Example  2 


The  default  extensions  are  .  FTN  for  the  source  files  (right  of  equal  sign)  and 
.OBJ  for  the  created  object  files  (left).  Example  3  is  an  indirect  command 
file  containing  commands  for  TKB  to  accomplish  linking  of  all  the  necessary 
objects  and  allocation  of  space  for  a  new  task  image.  The  default  extension 
for  the  input  file(s)  is  .OBJ  and  the  output  extension  is  .TSK. 


; PLOTTER . TKB 

PLOTTER*PL OTTER, TERM. TP LOT  , SCALE , MI NMAX ,QIOB , PON , XYPLOT , A4662 . PLREAD .TKDASH 
/ 

ASG-TI :5:6,SY: 1 :2 
ACTm-3 

Example  3 

To  execute  the  command  file  PLOTTER.CMD,  the  user  types  'PPLOTTER'. 


APPENDIX  D 


UEDIT 


The  program  UEDIT  allows  the  user  to  edit  an  unformatted  file  that  has 
been  created.  Data  may  be  changed  or  new  data  may  be  added. 


PROGRAM  ‘JED IT 
C 

BYTE  FILE(32),ANSM> 

c 

c 

CALL  ERRS£T< 29  * , .FALSE . , , .FALSE. , , > 

CALL  ERRSETi 39 . , . FAL SE . , t . FAL SE . , , > 

C -  GET  THE  FILENAME  - 

C 

50  WRITE  ( 5 ♦ 1 000  > 

1000  FORMAT  (/'SENTER  FILENAME:’) 

READ  < 5, 1010, END-800)  LF.FILE 
1010  FORMAT  (Q.32A1  ) 

F  I  LE  (  LF**-1  )*0 
C 

OPEN  ( UN  IT* 1 .NAME-FILE, TYPE-'OLD‘ .FORM* 1  UNFORMATTED '  . 
1  ERR=700 ) 

C 

C---  CHECK  FOR  VERSION  # 

C 

90  DO  100  I-l.LF 

IF  <  F I LE ( I  ) . EQ . '  j  *  )  F I LE ( I  )»0 
200  CONTINUE 

C 

C -  OPEN  THE  TEMPORARY  WORK  FILE  - 

C 

OPEN  (UN  IT* 2. NAME*' TEMP. DAT'  , ACCE SS* ’ D I RECT • , 

1  FORM-' UNFORMATTED’  , RECORDS  I ZE • 1 . TYP E *' NEW *  ) 

C 

C -  XFER  DATA  TO  TEMP  WORK  FILE  - 

C 

NREC*0 

200  READ  <1, END-250)  VALUE 

NREC-NREC+ 1 
WRITE  (2'NREC)  VALUE 
GOTO  200 
C 

250  CLOSE  (UNIT*! ) 

C 

C-—  READY  TO  EDIT  DATA  FILE - 

CALL  EDIT  ( NREC  ) 

C 

C -  FINISHED  WITH  EDIT  - 

C 

OPEN  (UNIT-1 , NAME-F ILE .FORM- ' UNFORMATTED '  , TYPE- r  NEW '  > 
C 

C -  RE-WRITE  DATA  --- 

C 

DO  400  I  -  1  .NREC 
READ  ( 2 ' I )  VALUE 
WRITE  ( 1 )  VALUE 
400  CONTINUE 

GOTO  800 


(continued) 


c 

C-" 

c 

700 

1050 

1055 


C 

C - 

C 

800 

1060 


OPEN  FAILURE  ON  INPUT  FILE  - 

WRITE  <5*1050) 

FORMAT  (/'SCREATE  NEW  FILE?1) 

READ  ( 5* 1055, END-800)  ANS 
FORMAT  <  4A1  ) 

IF  < ANS< 1 > . NE . 1 Y ' )  GOTO  50 

OPEN  ( UNIT- 1 .NAME -FILE, FORM-1 UNFORMATTED' f TYPE- 1  NEW '  ) 
GOTO  90 

GO  BYE  BYE 
WRITE  (5,1060) 

FORMAT  </'  EOITTING  SESSION  COMPLETE.') 

CLOSE  (UNIT-1  ) 

CLOSE  (UNIT-2, DI SPOSE- ' DELETE ' > 

CALL  EXIT 
END 
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